8086/8087/8088 MACRO ASSEMBLER 


SERIES “III 8&086/8C87/8&088 
MODULE PLACED IN 
INVOCATION LINE CONTROLS: 


CBJECT 


NOW EOI PH Owoon aun & GM - 


wed ee a me ee ek we 


LINE 


Mm wd 
(sO oO 


rm Po 
nh — 


At 


Nm 
{[ 


25 


5 a 


KACS - OBJECT CREATION ROUTINES | 09/01/80 


MACRO ASSEM3LER V1.C ASSEMBLY OF MODULE CREATE 
tFTLECREATE. O29 
DEBUG 


SOURCE 
$STITLE C’°KAOS - ORJECT CREATION ROUTINES”) 
NAME CREATE 
rae Intel Corporation Proprietary Information. This 
r listing is supplied under the terms of a license 
; acreement with Intel Corporation and may not be copied 
, nor disclosed except in accordance with the terms of 
, the acreement. 


; DATA STRUCTURE DEFINITIONS 

; PROCESS CONTROL BLOCK (PC3) DEFINITION 

PCB STRUC 

NEXT Dk 0 

LAST DW 0 

TYPEF OW 0 

QUEUE DW 0 

PRI DW ff) 

STKOFF DW 0 

STKSEG OW 0 

PCB ENDS 

; SEMAPHORE AND MAILBOX HEADER DEFINITION 

HEADER STRUC 

HEAD DW 0 

TAIL OW 0 

DUMMY OW 0 7TYPE BUT CAN’T REDECLARE 
CCUNT DW 0 

MHEAD oo 0. MAILBOXES ONLY 

MTAIL age 0 MAILBOXES ONLY 

HEADER ENDS 

; OZFINTION CF OBJECT TYPES FOR TYPEF FIELO 

SMPH EGU 14H >SEMAPHORE TYPE 

MBX EQU 15H MAILBOX TYPE : 

RLH ECU 16H READY LIST HEADER TYPE 
PCBT ECU 178. 7PROCESS CONTROL 8LOCK TYPE 


; GROUP AND EXTERNAL DEFINITIONS 


DGROUP GROUP DATA 
DATA SEGMENT byte PUBLIC “DATA’ 
EXTRN CPsWORD 
EXTRN CPRI:WORD 
EXTRN TFRIZWORD 
EXTRN READYLIST: WORD 
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&€086/8087/8088 MACRO 


LOC OQBJ 


Q000 ¢1 


99999999 


ASSEMSL 


ZR 


KAOS - O38JECT CREATION ROUTINES 


SCURCE 


PTRSAVE 


EXTRN 
OD 
ENOS 


GROUP 
SEGMENT 


READYLISTSIZE:ABS 
1 DUP (7) 


CODE 
byte PUBLIC ’CODE’ 


CS:CGROUP,DS:DGROUP 


EXTRN 


CREATEALARM:NEAR 
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€086/8087/8088 


LCC 


C014 
0014 
0015 
0016 
C018 
0018 
0C20 
0025 
CO2A 


OBJ 


vi ui 
wo OO 


28 

891F 
B9SFO2 
C747041400 
F7DS 
E94F06 
FREQ 


58 
58 

B91F 
895F02 
C747041500 
C747060C00 
C74708FFFE 
FFEO 
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SCURCE 


CREATESSEMAPHORE CSEMAPHORESO, INITIAL) - CREATE SEMAPHORE. 


‘eo 
_ 


PARAMETERS: 
SEMAPHCRESC - OFFSET OF AN 8 BYTE BLOCK OF MEMORY 
IN WHICH TO CREATE THE SEMAPHORE. 
INITIAL ~ WORD COUNT OF NUMBER OF SIGNALS TO INITIALIZE 
THE SEMAPHORE TO. 


wa Ne Ne Ne Na Ns Ne 


PUBLIC CREATESEMAPHORE 
CREATESEMAPHORE: 


EGP AX 7POP RETURN ADDRESS 
PCP CX 7POP INITIAP 
PCP BX . 7PQP BLOCK POINTER 
MCV C8X].HEAD,3BX INITIALIZE HEAD POINTER 
MOV C8XJ.TAIL,BX y AND TAIL POINTER 
MOV CBXJ.TYPEF,/SMPH -INITIALIZE TYPEF 
NEG CX INITIALIZE COUNT 
MCV CBX] .COUNT,/CX . 
JMP AX RETURN. 
ne CREATESMAILBOX (CMAILBOXSO) - CREATE MAILBOX. 
ra ; : f 
; PARAMETER: 
, MAILBOX$0O - OFFSET OF A 16 BYTE BLOCK OF MEMORY 
f 


IN WHICH TO CREATE THE MAILBOX. 


PUBLIC CREATEMAILBOX 
CREATEMAILBOX: 


POP AX 7POP RETURN ADDRESS 

PCP 3 X 7POP BLOCK POINTER 

MOV CBX] .HEAD,-BX INITIALIZE HEAD POINTER 

MOV CBXJ.TAIL,-BX ry AND TAIL POINTER 

MOV CBEX].TYPEF/MBX ;s INITIALIZE TYPEF 

MCV cex].cCouNT,0O INITIALIZE COUNT 

MCV WORD PTR CBXI.MHEAD,/OFFFFH *INITIALIZE MHEAD 
JMP AX 7RETURN 
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8086/8087/8088 MACRO ASSEMBLER 
LOC ObJ LINE 
104 

105 

106 

197 

106 

109 

110 

111 

Tie 

113 

114 

115 

116 

cis card 

002C 118 
CO2C 58 119 
CO20 538 12 
CO2e C747FENC02 Te 
0033 8&C4FFC 122 
CO36 59 123 
0037 894FFA 124 
COSA 8C5FFB deo 
CO30 &3EB0A 126 
0040 59 127 
C041 5F | 123 
CO42 C7450417C0 Veg 
0047 8&95D0A 130 
CO4A 8C5D0C 131 
CO40 0121 132 
QCO4F &3D9 133 
CO51 0161 134 
C053 0309 I 
CQO55 8&1C035000C E 136 
CO59 891D 134 
0058 895008 13e 
OO5e 395006 1:29 
140 

0061 9C 141 
CCé2 FA 142 
0063 8B7702 143 
CO66 897F02 144 
COC69 893C 145 
COéB 897502 146 
Q06=E 8910 147 
148 

CO70 381£0000 e 1495 
CO74 7FO04 15C 
CO76 B891E0000 = 151 
GCO7A 9D 152 
O078 FrEOQ 153 
| 154 
135 
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SCURCE 
rae: CREATESPROCESS (PCBSOr- PRIv ENTROGOs STACK$O) = CREATE PROCESS. 
7 
; PARAMETERS: 
; PC3tO - OFFSET OF A 14 BYTE BLOCK OF MEMORY IN WHICH 
; TO CREATE THE PC8 OF THE NEW PROCESS. 
; ORT —- WCRD PRIORITY OR THE NEW PROCESS. MUST BE >= O AND 
; < THE NUMBER OF READY LIST HEADERS IN THE SYSTEM. 
; ENTRYSC - OFFSET RELATIVE TO CS OF THE FIRST BYTE 
; OF THE PROCESS TO BE EXECUTED. 
; STACKSO - OFFSET RELATIVE TO DS OF THE TOP OF STACK 
; OF THE NEW PROCESS. 
PUBLIC CREATEPROCESS 
CREATEPROCESS: 
PCP AX 7POP RETURN ADDRESS 
POP BX 7POP NEW STACK POINTER 
MCV £BX-21,200H 7FLAGS 
MCV C8x-43,CS | 7STORE CS 
Pap CX 7POP NEW IP 
MOV CBX-51,CX STORE NEW IP 
MOV C2xX-8],0DS *SAVE DS 
SUB BX,10 UPDATE NEW STACK POINTER CINC SPACE FOR BP) 
POP CX 7POP "pRiI" | 
POP OI 7POP PCB POINTER 
MCV COTJ.TYPEF,/PC8T INITIALIZE TYPEF FIELD 
MOV COIT.STKOFF-BX fSET UP STACK POINTER 
MCV COIIT.STKSEG,DS 
SHL CX-1 COMPUTE ADDRESS CF RL HEADER (X 6) 
MOV 3X-CX 
SHE CXr1 
ACD BX,CX 
ACD 3X,OFFSET DGRCUP:READYLIST 
MOV COIJ.NEXT,BX ,INITIALIZE NEXT FIELD 
MCV COIJ.PRI,3X INITIALIZE PRI AND QUEUE FIELDS 
NCV CoOI].CUEUE,BX 
PUSHF 7TURN OFF INTERRUPTS WHILE UPCATING READY LIST 
CLI 
MCV SI,CBX1.TAIL 7ST = TAIL 
MOV C&8XJ.TAIL,DI 7NEW TAIL 
MOV CSIJ.NEXT/OI yLINK OF CLD TAIL 
MOV COIJ.LAST,SI POINTER TO LAST PCB 
MOV COIJ.NEXT,-BX 
CMP BX, TPRI CHECK IF HIGHER THAN TOP PRIORITY 
JG CRP1 7IF LOWER PRIORITY (HIGHER NUMBER) 
MCV TPRI,8X 7 a : 
CRP1: PCPF 
JMP AX RETURN TO CALLER 
SEJECT 
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LOC CBJ Lehre SCURCE 
156 aa CREATE_RL = CREATE READY LIST. 
157 : 
158 ? PARAMETERS? 
159 ; NONE: 
160 
161 
CO7D 162 CREATE. KLS 
GC70 33C0 163 XOR AX 7 AX INITIALIZE STATE VARIABLES 
CO7F Aa30000 c 164 MOV CP, AX 
0082 a30000 z 165 MCV CPRI,AX 
CO85 A&30000 ra 166 MCV TPRI-AX 
147 
0c88 830000 c 168 MOV BX/OFFSET OGROUP:READYLIST /fINITIALIZE READYLIST 
00883 B90CQ00 a 169 MCV CX,REACYLISTSIZE 
170 
OO8E 891F 171 CRR1: MOV CBXJ].HEAD,3X 
ca90 895F02 472 MCV Cax].TAIL,BX 
CO93 C747041600 172 MOV CSX].TYPEF-/RLH 
C098 83C306 174 ADO BX, 6 
CQ9B E2F1 175 LOOP CRR1 
C090 C3 176 RET : 
a 
178 
179 #1. $ EJECT 
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LOC 03¥J LINE SOURCE 
4180 ae: CREATESLISTCLISTSPTR) - CREATE OBJECTS FROM A LIST. 
181 ; 
182 ; PARAMETER: 
133 : LISTSPTR - 32-BIT POINTER TO A LIST OF OBJECTS TO 8E CREATED. 
1&4 
185 , 
Q09z 0400 186 CRLA DW 4 ZNUMBER OF WORDS OF PARAMETERS IN CALL 
GOAO 6200 187 DW 2 
COA2 0100 48a a 1 
O0A4 0200 189 DW 2 
coAdé Oo00 190 DW 0 : 
ooa8 2c00 R 151 CRLB DW OFFSET CGROUP:CREATEPROCESS FROUTINE TO CALL 
COAA 0000 R 192 Dh OFFSET CGROUP:CREATESEMAPHORE 
coACc 1400 R 193 DW OFFSET CGROUP:CREATENAILBOX 
OOAE 0000 z 1594 DW OFFSET CGROUP:CREATEALARM 
oc30 7D0C R 195 Diy OFFSET CGROUP:CREATE_REL 
196 
197 
| 458 PUBLIC CREATELIST 
coB2 199 CREATELIST: 
0082 58 200 POP AX ;MOVE PARAMETER TO ES:SI 
0033 5E 201 Poe Si 
CoB4 07 202 PCP E 
cogs 50 2063 PUSH AX 
204 ee 
COB6 268A1C © 205 CRL1: MCV BL, ES:CST] FREAD TYPE 
0089 46 204 INC StI | 
COBA &@0FBO0 | 207 CMP  BL,O 7CHECK FOR END OF LIST 
0O8D 7501 208 JNZ CRL2 7IF NOT AT END OF LIST 
COBF C3 209 RET JRETURN IF AT END OF LIST 
OocO 8700 210 CRL2: MCV BH,0 
Ogc2 2E8B8FSCOO R 211 MOV CX/CRLACBX-2] ;READ PARAMETER COUNT 
COC7 £309 212 JCXZ CRL4 
7 213 | 
COC9 268804 244 CRL3: MOV AXES: CSI] ;COPY PARAMETERS TO STACK 
COCC 33C602 245 ADD Six 
OOCE 50 216 PUSH AX 
COD0 =E2F7 217 LOOP CRL3 
218 | 
Cop2 89360000 R 219 CRL4: MCV WORD PTR PTRSAVEsSI #SAVE POINTER 
CODé 8&c0s60200 R 220 MOV WORD PTR PTRSAVE+2-ES 
CODA 2=FF97AE00 R 221 . CALL WCRO PTR CRLBECBSX-2] FCALL PROCESSING ROUTINE 
OODF c43s0000 R 222 LES SI,PTRSAVE SRESTCRE POINTER 
OOE3 £801 223 JMP CRL1 LOOP 
224 
225 
---- 226 CCDE ENDS 
227 
228 +1 $TITLE (’KAOS - CONDITIONAL OPERATIONS’) 
229 +1 SEJECT 


8086/8087/8088 MACRO ASSEMBLER 


LOC C3J LINE 


“<= 232 


KACS ~ CONDCITICNAL OPERATIONS 
SQURCE 
; GROUP AND EXTERNAL DEFINITIONS 
CCOe SEGMENT BYTE PUBLIC “’CODE’ 


ASSUME CS:CGROUP 


EXTRN HALTANDOCATCHFIRE:NEAR 
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LOC CBJ Line SOURCE 


237 ee CRECEIVE (VAILBOX$O) - RECEIVE MESSAGE FROM MAILBOX IF ONE IS. 
238 ; AVAILABLE. 
235 ; 
240 ; PARAMETER: 
241 ; MAILBOX$O - OFFSET OF MAILBOX TO RECEIVE FROM. 
242 ; 
243 ; RETURNS: 
244 ; POINTER TO MESSAGE IF ONE IS AVAILABLE. 
245 ; OFFSET OF OFFFFH, FRAME UNDEFINED IF NO MESSAGE IS AVAILABLE. 
246 
247 
248. PUBLIC CRECEIVE, ICRECEIVE 
COz5 880500 249 CREC1: MOV AX, 5 ABORT IF NOT A MAILBOX 
O08 50 250 PUSH AX 
COE9 £80000 E 251 CALL HALTANDCATCHFIRE 
COEC 252 ICRECEIVE: 
OOEC 252 CRECEIVE: 
COEC 59 254 POP cx 7POP RETURN ADDRESS 
COED 5é 255 PGP SI POP SEMAPHORE POINTER 
COEE 83700415 256 CMP CSI].TYPEF/MBX ZCHECK IF MAILBOX TYPE 
COF2 7551 257 JNZ CRECT 
COF4 SC 252 PUSHF - 7SAVE FLAGS 
COFS FA 259 Git 7RUN WITH INTERRUPTS OFF 
COF6 FF4406 | 260 INC FSTI.COUNT *TEST COUNT 
COF9 7F13 261 Je CREC2 IF NO MESSAGES AVAILABLE 
COFB C45C08 262 LES BX,CSI].MHEAD  fREAD MESSAGE POINTER | 
COFE 26883F 263 : MCV O1,/28:CBX] READ LINK TO NEXT 
C101 897C08 264 MCV WORD PTR CSIJ.MHEAD/DI ;UPDATE MHEAD POINTER 
0104 26887F02 265 MOV DIES: CBX+2] 
0108 897COA 266 MCV. WORD PTR CSTJ.MHEAD+2,DI1 
C108 9D 267 PCPF | 
C10C FFE 268 JMP Cx 7RETURN 
269 
C10E FF4C06 270 CREC2: DEC CSIJ.COUNT FRESTORE COUNT 
6111 BSFFFF : 274 MCV 8X, OFFFFH RETURN OFFFFH 
C114 9D 272 POPF 
0115 FFE1 273, UMP Cx 
274 


275 +41 SEJECT 


8086/ 8087/8088 MACRO ASSEMBLER 


KACS 
LOC Q8J LINE SOURGE 
276 i+? 
277 ; 
278 ; 
279 , 
2éC ; 
281 ; 
282 ; 
233 ; 
284 ; 
285 
286 
287 
C117 880600 288 CWAIT1: 
011A 50 289 
C118 £80000 5 250 
Q11E 291 ‘ ICWAIT: 
CIi1E 292 CWAIT: 
C11E 59 293 
C11F 58 294 
0120 &837F0414 295 
0124 75F1 256 
0126 9C 297 
C127 FA 298 
0128 FF4&706 295 
C128 7FOS5 360 
0120 BOFF 301 
C12F 90 302 
C130 FFe1 3C3 
304 
0132 FF4F06 365 CWAIT2: 
E735: S306 3Gé 
C137 9D 307 
0138 FFE1 308 
309 
es 316 CODE 
a1 
312 


ASSEMBLY COMPLETE, NO 
~submit :flicens 
“delete :f1:x.bak,:f1:*.obj,:f1:x.lst 
PFd24eBAK, NO SUCH FILE 
SFY:PUCONF.CBJ, DELETED 
:FI:OLL.sOBJ, OELETED 
PFPTSOLLea LST. DSLlLeTet 
2F1:GENS.LST, CAN’T DELETE CPEN 
-run 
ISIS-II RUN @0865, V1.1 
>:f2:asm86 :f1spucont.com 


ERRORS FOUND 


PILE 


delug 


- CONDITICNAL OPERATIONS 


CWAIT CSEMAPHORESO) - ACCEPT SIGNAL FROM SEMAPHORE ON THE 
THAT A SIGNAL IS ALREADY AVAILABLE. 


PARAMETER: 
SEMAPHCRE$0O - OFFSET OF THE SEMAPHORE TO CHECK. 
RETURNS: 
TRUE - A SIGNAL WAS AVAILABLE AND ACCEPTED. 
FALSE =~ NO SIGNAL WAS AVAILABLE. 
PUBLIC CWAIT,/-ICWAIT 
MOV AX76 7ABORT IF NOT A SEMAPHORE 
PLSH AX 


CALL HALTANDCATCHFEIRE 


POP CX POP RETURN ADDRESS 

POP BX 

CMP C2X].TYPEF,/SMPH -CHECK IF A SEMAPHORE 
JNZ CWAIT1 

PUSHF 7SAVE INTERRUPT FLAG 

CLI ,RUN WITH INTERRUPTS OFF 
INC C8X].COUNT 2TEST SEMAPHORE 

JG CwATT2 7IF NO SIGNALS AVAILABLE 
MCV AL, OFFH RETURN TRUE 

PCPF 

JMP CX ,RETURN 

DEC C8xJ.COUNT RESTORE VALUE 

XOR AX, AX RETURN FALSE 

POPE . 

JMP CX 7RETURN 

ENDS 

END 


SERIES“TII 8086/8C87/2808& MACRO ASSEMBLER, V1.0 


ASSEMBLY COMPLETE, NO ERRORS FOUND 
>:F2:ASM86 :f1tedll.sre debug 

SERTES“III 8C86/8C87/80E8 
ZRRORS 


ASSEMBLY COMPLETE, FOUND | © 


>exit 


m_ nN a a 


NO 


MACRO ASSEMBLER, 
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